home *** CD-ROM | disk | FTP | other *** search
/ Explore Yellowstone / Explore Yellowstone (1997)(The Learning Company)[PC-Mac].iso / mac / ROSTER.DIR / 00017_Script_fr stationWrite1 < prev    next >
Text File  |  1996-02-29  |  853b  |  31 lines
  1. on exitFrame
  2.   global ThisUser
  3.   
  4.   saveUserList
  5.   
  6.   GetRoster
  7.   
  8.   -- establish the next free line for typing straight away
  9.   put the number of lines in field "MainList" into lineCount  -- vs "display"
  10.   repeat with x = 1 to lineCount
  11.     if line x of field "display" contains "-----" then
  12.       exit repeat
  13.     else if x = lineCount then
  14.       put x into ThisUser    -- ?need to adjust the variable for extra pass
  15.       addNewUser
  16.       loadMainList
  17.       GetRoster
  18.     end if
  19.   end repeat
  20.   
  21.   if ThisUser > 0 then
  22.     hilite char 1 to 30 of line ThisUser of field "Display"
  23.     put char 1 to 30 of line ThisUser of field "Display" into TextString
  24.     put TextString into field "EnterText"
  25.     hilite char 1 to 30 of field "EnterText"  
  26.     set the KeyDownScript to "CheckKey1"
  27.   end if  
  28.   
  29.   go to "stationLoop1"
  30. end
  31.